SET DELE OFF
DR='N:'
F1='DP_DISC'

USE

DO SIGNIT

IF NET_USE("&DR1&F1",.T.,'1',10)
   PACK
   DO SIGNI
   INDE ON PRGNM+CODE TO &DR1&F1
   
ENDIF
SET EXCLU OFF
USE


return